optFloydStucciType(0).Enabled = optColourDepth(2).Value And optReduceMethod(1).Value
optFloydStucciType(1).Enabled = optColourDepth(2).Value And optReduceMethod(1).Value
If Not (optColourDepth(2).Value) Then
optFloydStucciType(0).Value = False
optFloydStucciType(1).Value = False
Else
If Not (optFloydStucciType(0).Value Or optFloydStucciType(1).Value) Then
optFloydStucciType(0).Value = True
End If
End If
End Sub
Private Sub optReduceMethod_Click(Index As Integer)
optFloydStucciType(0).Enabled = optColourDepth(2).Value And optReduceMethod(1).Value
optFloydStucciType(1).Enabled = optColourDepth(2).Value And optReduceMethod(1).Value
End Sub
Private Sub picCurrent_Paint()
If Not m_cDIB Is Nothing Then
m_cDIB.PaintPicture picCurrent.hDC
End If
End Sub
Private Sub cmdSave_Click()
Label20.Visible = True
MsgBox "Picture Conversion May Take a Few Minutes!" + (Chr$(13) + Chr$(10)) + "Please Wait..", , "Picture File Converter-Editor"
Dim s As String, sFile As String
Dim sI As String
Dim eD As EDSSColourDepthConstants
Dim eM As EDSSColourReductionConstants
Dim New_filename, Old_Filename, New_ExtensionName
If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False And Option1(4).Value = False And Option1(5).Value = False And Option1(6).Value = False Then